Задана матрица порядка n. Сосчитать сколько отрицательных чисел в этой матрице. — QBasic(Бейсик)

CLS
INPUT "vvedite razmer massiva"; n
DIM a(n)
FOR i = 1 TO n
    PRINT "vvedite a("; i; ")"
    INPUT a(i)
    IF a(i) < 0 THEN otr = otr + 1
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "otr ="; otr